(prompt "Where do you want DzDir: assigned?\n This is where the configuration data is stored...")
(help "The size needed depends on your configuration, this can be quite small for text buttons or a low amount of small single import buttons.")
(default "Work:DzDir")
))
(makeassign "DzDir" dir)
(complete 5)
(startup "DzDir"
(prompt "Save this assignment to your \"user-startup\" file?")
(help "")
(command "Assign DzDir: " dir)
)
(complete 10)
(copylib
(prompt "Install DzAIList.mcc?")
(help @copylib-help)
(source "mui/DzAIList.mcc")
(dest "MUI:Libs/MUI")
(confirm)
)
(complete 15)
(copylib
(prompt "Install DzDBWindow.mcc")
(help @copylib-help)
(source "mui/DzDBWindow.mcc")
(dest "MUI:Libs/MUI")
(confirm)
)
(complete 20)
(copylib
(prompt "Install DzGlobe.mcc")
(help @copylib-help)
(source "mui/DzGlobe.mcc")
(dest "MUI:Libs/MUI")
(confirm)
)
(complete 25)
(copylib
(prompt "Install DzAIPanel.mcc")
(help @copylib-help)
(source "mui/DzAIPanel.mcc")
(dest "MUI:Libs/MUI")
(confirm)
)
(complete 30)
(copylib
(prompt "Install DzFilter.mcc")
(help @copylib-help)
(source "mui/DzFilter.mcc")
(dest "MUI:Libs/MUI")
(confirm)
)
(complete 35)
(copylib
(prompt "Install DzReq.mcc")
(help @copylib-help)
(source "mui/DzReq.mcc")
(dest "MUI:Libs/MUI")
(confirm)
)
(complete 40)
(copylib
(prompt "Install DzAIWindow.mcc")
(help @copylib-help)
(source "mui/DzAIWindow.mcc")
(dest "MUI:Libs/MUI")
(confirm)
)
(complete 45)
(copylib
(prompt "Install DzFlagList.mcc?")
(help @copylib-help)
(source "mui/DzFlagList.mcc")
(dest "MUI:Libs/MUI")
(confirm)
)
(complete 50)
(copylib
(prompt "Install DzTypeList.mcc?")
(help @copylib-help)
(source "mui/DzTypeList.mcc")
(dest "MUI:Libs/MUI")
(confirm)
)
(complete 55)
(set whatis
(askchoice
(prompt "DzDir requires the WhatIS.library\n Installer would not always read this file as a library so...\n\n Do you want Version 4.0?")
(help @copylib-help)
(choices "No" "Yes")
(default 1)
)
)
(if whatis
(copyfiles
(source "WhatIS.Library")
(dest "Libs:")
)
)
(complete 60)
(set config
(askchoice
(prompt "DzDir requires configuration files in \"DzDir:\"\n Otherwise it will not function properly.\n\nWhich do you desire?")
(help ""@copyfiles-help)
(choices "DzDir_Configuration without images" "DzDir_Configuration with images")
(default 1)
)
)
(makedir
("Env:MUI")
)
(makedir
("EnvArc:MUI")
)
(if config
(
(copyfiles
(source "ImageDocks")
(infos)
(dest "DzDir:")
(all)
)
; Make sure the windows look OK too!
(copyfiles
(source "MUIWinCfg.images")
(infos)
(dest "Env:Mui/")
(all)
)
(copyfiles
(source "MUIWinCfg.images")
(infos)
(dest "EnvArc:Mui/")
(all)
)
)
(
(copyfiles
(source "TextDocks")
(infos)
(dest "DzDir:")
(all)
)
; Make sure the windows look OK too!
(copyfiles
(source "MUIWinCfg")
(infos)
(dest "Env:Mui/")
(all)
)
(copyfiles
(source "MUIWinCfg")
(infos)
(dest "EnvArc:Mui/")
(all)
)
)
)
;(complete 65)
; (copyfiles
; (source "Configuration")
; (infos)
; (dest "DzDir:")
; (all)
; )
(complete 70)
(set filetypes (askbool
(help "The Filetypes file is optional, but we recommend you install it. It allows you to add new datatypes to those DzDir recognitises currently.\n Great extra help hey!")
(prompt "The Filetypes file is optional, but we recommend you install it. It allows you to add new datatypes to those DzDir recognitises currently.")
(default 1)
(choices "Copy it" "Skip this part")
))
(if filetypes
(copyfiles
(help ""@copyfiles-help)
(infos)
(source "Filetypes")
(dest "S:")
)
)
(complete 75)
(copyfiles
(prompt "Lets copy an example \"Shell-Startup\" for DzDir shall we?\n This is highly recommended as DzDir uses it...")
(help "This file is the one \"NewShell\" looks for when a shell is started by DzDesktop. It should have *NO* "cd" type commands, this is because DzDir will be in the directory of the active filelist when the shell is run.\n\n"@copyfiles-help)
(confirm)
(source "DzShell-Startup")
(dest "S:")
)
(complete 80)
(set dir (askdir
(prompt "Where do you wish to put the main DzDir program?\n No draw is made")
(help "We recommend that you put DzDir into the WbStartup. \nIf you do this then the MuiMaster.Library will be open on boot. This has two major implications; subsequent Mui programs will run much faster, and ~200k of ram will be consumed.\nThe choice is yours, It all depends on you and your system.\n\n"@copyfiles-help)
(default "Sys:Wbstartup")
))
(copyfiles
(help "We recommend that you put DzDir into the WbStartup. \nIf you do this then the MuiMaster.Library will be open on boot. This has two major implications; subsequent Mui programs will run much faster, and 300k of ram will be consumed.\nThe choice is yours, It all depends on you and your system.\n\n"@copyfiles-help)
(infos)
(source "DzDir")
(dest dir)
)
(set target dir)
(set @default-dest dir)
(complete 85)
(set dir (askdir
(prompt "Where do you wish to store the documentation?")
(help "Usually the AmigaGuide helpfile will go in \"Help:(Langauge)\". This is where the Amiga stores these files. Either put it here or in another area where you can recall it for reference.\n\n"@copyfiles-help)
(default "HELP:english")
))
(copyfiles
(help "")
(infos)
(source "DzDir.guide")
(dest dir)
)
(complete 90)
(set dzrexx (askbool
(help @copyfiles-help)
(prompt "Do you want to have the Ced Rexx files, so DzGrep can jump _Ced_ to the file/line?")
(default 1)
(choices "Yes" "Skip this part")
))
(if dzrexx
(
(copyfiles
(help ""@copyfiles-help)
(source "Ced.Jumpto")
(dest "Rexx:")
)
(copyfiles
(help ""@copyfiles-help)
(source "Ced.LoadFile")
(dest "Rexx:")
)
)
)
(complete 93)
(set dzrexx (askbool
(help @copyfiles-help)
(prompt "Do you want to have the TurboText Rexx files, so DzGrep can jump _TTX_ to the file/line?")
(default 1)
(choices "Yes" "Skip this part")
))
(if dzrexx
(
(copyfiles
(help ""@copyfiles-help)
(source "TTX.Jumpto")
(dest "Rexx:")
)
(copyfiles
(help ""@copyfiles-help)
(source "TTX.LoadFile")
(dest "Rexx:")
)
)
)
(complete 96)
(set dzrexx (askbool
(help @copyfiles-help)
(prompt "Do you want to have the ViewText Rexx files, so DzGrep can jump ViewText to the file/line?")
(default 1)
(choices "Yes" "Skip this part")
))
(if dzrexx
(
(copyfiles
(help ""@copyfiles-help)
(source "viewtext.rx")
(dest "Rexx:")
)
(copyfiles
(help ""@copyfiles-help)
(source "viewtextline.rx")
(dest "Rexx:")
)
(copyfiles
(help ""@copyfiles-help)
(source "CSource.rx")
(dest "Rexx:")
)
)
)
(complete 99)
(exit "Much joy, and remember to register!\n\n @ only $55 you get a bargain!")
